home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 1998 November / IRIX 6.5.2 Base Documentation November 1998.img / usr / share / catman / p_man / cat3 / f90 / ieee_finite.z / ieee_finite
Text File  |  1998-10-30  |  2KB  |  60 lines
  1. IEEE_FINITE(3I)                                        Last changed: 1-6-98
  2.  
  3.  
  4. NNAAMMEE
  5.      IIEEEEEE__FFIINNIITTEE - Tests for _x being greater than negative infinity and
  6.      less than positive infinity.
  7.  
  8. SSYYNNOOPPSSIISS
  9.      IIEEEEEE__FFIINNIITTEE (([XX==]_x))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS/mk and IRIX systems
  13.  
  14.      CRAY T90 systems that support IEEE floating-point arithmetic
  15.  
  16. SSTTAANNDDAARRDDSS
  17.      CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90
  18.  
  19.      IEEE Standard for Binary Floating-point Arithmetic
  20.  
  21. DDEESSCCRRIIPPTTIIOONN
  22.      The IIEEEEEE__FFIINNIITTEE intrinsic function returns the value TTRRUUEE if
  23.      -_i_n_f < _x < +_i_n_f.  Otherwise, it returns the value FFAALLSSEE.  IIEEEEEE__FFIINNIITTEE
  24.      accepts the following argument:
  25.  
  26.      _x         Must be of type real.
  27.  
  28.      IIEEEEEE__FFIINNIITTEE is an elemental function.  The name of this intrinsic
  29.      cannot be passed as an argment.
  30.  
  31. NNOOTTEESS
  32.      The IEEE intrinsic procedures use the named constants contained in a
  33.      system module, so you must include one of the following statements in
  34.      your program:
  35.  
  36.      * On UNICOS and UNICOS/mk systems:  UUSSEE CCRRII__IIEEEEEE__DDEEFFIINNIITTIIOONNSS
  37.  
  38.      * On UNICOS, UNICOS/mk, and IRIX systems:  UUSSEE FFTTNN__IIEEEEEE__DDEEFFIINNIITTIIOONNSS
  39.  
  40.      The CCRRII__IIEEEEEE__DDEEFFIINNIITTIIOONNSS module is obsolescent.  It will be removed
  41.      for the CF90 4.0 release.
  42.  
  43. RREETTUURRNN VVAALLUUEESS
  44.      The result type and type parameter is default logical.  If _x is an
  45.      array, the result is an array of the same shape as _x.
  46.  
  47. EEXXAAMMPPLLEESS
  48.           REAL   x
  49.              ...                    ! Compute X.
  50.           IF (IEEE_FINITE(x)) THEN
  51.              ...                    ! Do something.
  52.           ELSE
  53.              ...                    ! Do something else.
  54.           END IF
  55.  
  56. SSEEEE AALLSSOO
  57.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l, publication SR-2138, for the
  58.      printed version of this man page.
  59.  
  60.